unit uDataModule;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqldb, db, FileUtil, Controls, Menus, mssqlconn;

type

  { TDM }

  TDM = class(TDataModule)
    Datasource1: TDatasource;
    dsrSaleGroup: TDatasource;
    dsrRestForSale: TDatasource;
    ImageList: TImageList;
    spRestForSale: TSQLQuery;
    spRestForSaleSALECODE1: TStringField;
    spSaleGroupSaleGroup: TStringField;
    spSaleGroupSaleGroup1: TStringField;
    SQLConnector1: TSQLConnector;
    SQLQuery1: TSQLQuery;
    spSaleGroup: TSQLQuery;
    SQLQuery1DEPARTMENT_ID1: TLongintField;
    SQLQuery1GOODS_ID1: TLongintField;
    SQLQuery1SALECODE1: TStringField;
    SQLQuery1WRH_QTY1: TFloatField;
    SQLTransaction1: TSQLTransaction;
    procedure DataModuleCreate(Sender: TObject);
    procedure SQLConnector1AfterConnect(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    var USERS_ID :integer;
        SHOPS_ID :integer;
  end; 

var
  DM: TDM;

implementation

{$R *.lfm}


{ TDM }

procedure TDM.DataModuleCreate(Sender: TObject);
begin

end;

procedure TDM.SQLConnector1AfterConnect(Sender: TObject);
begin

end;

end.

